home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / write3_512.lha / REXX / ResortIcon.wrx < prev    next >
Text File  |  1994-08-15  |  721b  |  39 lines
  1. /*
  2.  * Dieses Script sortiert alle FensterIcons neu.
  3.  *
  4.  * Dieses Script ist eigendlich von geringen Nutzen. Es ist für Leute, die
  5.  * keine Lücken in der Reihe der Icon (für iconifizierte Fenster) mögen.
  6.  * Einfach dieses Srcipt starten, alle Icons werden einmal geöffnet und
  7.  * geschlossen, so daß sie nun wieder schön sortiert erscheinen.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. IF ~show('P',"WRITE")
  14. THEN DO
  15.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  16.  exit 10
  17. END
  18.  
  19. ADDRESS "WRITE"
  20.  
  21. 'VERSIONCHECK 3848 "ResortIcon.wrx"'
  22. IF RC~=0 THEN DO
  23.   exit 10
  24. END
  25.  
  26. ID = 0
  27. NEXTED ID
  28.  
  29. do while RC=0
  30.   'GETVAR "_CurrentID"'
  31.   ID = Result
  32.   'GETVAR "_WinMode"'
  33.   if Result=1 then do
  34.     HIDE
  35.     ICONIFY
  36.   end
  37.   NEXTED ID
  38. end
  39.